home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The PC-SIG Library 10
/
The PC-Sig Library - Shareware for the IBM PC and Compatibles (PC-SIG)(Tenth Edition Disks 1-2804)(1991).iso
/
PC_SIGCD
/
03
/
8
/
DISK0386.ZIP
/
BLKDAT.FOR
< prev
next >
Wrap
Text File
|
1985-05-02
|
29KB
|
418 lines
$STORAGE: 4
$DO66
BLOCK DATA
COMMON /NUMBRS/ I2,I3,I4,I5,I6,I7
DIMENSION NSYM1(89),NSYM2(89)
DIMENSION NSYMB(2,89)
C SHORTEN DATA STMT BY HAVING 2 HALF SIZED ARRAYS
EQUIVALENCE(NSYM1(1),NSYMB(1,1))
EQUIVALENCE(NSYM2(1),NSYMB(2,44))
COMMON /SYMBOL/ NBLANK,NSYM,NSYMX,LFRONT,LFRNTX,LBACK,LBACKX
COMMON /INIT/ NSYMB,IA(186),IB(180),IC(181),ID(179),IE(174),
* IF(184),IG(180),IH(173),II(179),IJ(187),IK(179),IL(180),
* IM(176),IN(171),IO(168),IP(163),IQ(160),LMAX(89),LMIN(89)
DATA I2,I3,I4,I5,I6,I7/100,1000,10000,100000,1000000,10000000/
DATA NBLANK,NSYM,NSYMX/32,36,77/
C DATA NBLANK,NSYM,NSYMX/' ','$','M'/
C
DATA LMAX,LMIN/80,57,80,73,80,57,80,57,80,74,80,57,80,57,3*80,57,
* 5*80,55,3*80,57,3*80,57,80,74,3*80,57,80,57,80,57,80,55,80,55,
* 80,55,80,55,80,55,10*80,70,48,80,55,3*80,64,7*80,88,2*80,2*15,
* 2*47,2*80,76,80,1,10*1,-1,12*1,-1,7*1,-24,1,-24,5*1,-24,-11,-24,
* 7*1,-24,12*1,11,33,1,26,1,1,61,19,7*1,-7,1,1,-9,1,1,11,41,41,
* 4,1,1/
C THE SECOND LETTER IN EACH OF THE FOLLOWING PAIRS IS LOWER CASE.
C DATA NSYMB/'E',490001,'e',340024,'T',510072,'t',220103,'A',660123,
C *'a',380185,'O',540239,'o',340245,'I',270245,'i',180251,'N',670268,
C *'n',420315,'S',440315,'s',290386,'H',650430,'h',420463,'R',550463,
C *'r',300502,'D',570518,'d',390520,'L',460542,'l',180557,'U',640562,
C *'u',420609,'B',520641,'b',390669,'C',480688,'c',310712,'F',490726,
C *'f',300751,'G',560783,'g',470822,'J',360890,'j',180921,'K',620941,
C *'k',401001,'M',761033,'m',641085,'P',461132,'p',391159,'Q',541175,
C *'q',391227,'V',701249,'v',461309,'W',941350,'w',671435,'X',611498,
C *'x',441572,'Y',571623,'y',451683,'Z',461731,'z',311800,'0',491842,
C *'1',251885,'2',381904,'3',421963,'4',412019,'5',412063,'6',432118,
C *'7',382184,'8',442215,'9',432275,'+',362341,'-',362347,'!',102351,
C *'=',362353,'/',282357,'%',282385,'^',122425,'_',342436,'<',312480,
C *'>',312511,'(',172542,')',172559,'*',442576,'?',352621,'&',532664,
C *'$',402729,'#',362781,']', 92833,',', 92842,'.', 92851,';', 92858,
C *':', 92869,''', 92876,'"',182885,'[',312900,'@',482938,' ',503001/
C
DATA NSYMB/69,490001,101,340024,84,510072,116,220103,65,660123,
*97,380185,79,540239,111,340245,73,270245,105,180251,78,670268,
*110,420315,83,440315,115,290386,72,650430,104,420463,82,550463,
*114,300502,68,570518,100,390520,76,460542,108,180557,85,640562,
*117,420609,66,520641,98,390669,67,480688,99,310712,70,490726,
*102,300751,71,560783,103,470822,74,360890,106,180921,75,620941,
*107,401001,77,761033,109,641085,80,461132,112,391159,81,541175,
*113,391227,86,701249,118,461309,87,941350,119,671435,88,611498,
*120,441572,89,571623,121,451683,90,461731,122,311800,48,491842,
*49,251885,50,381904,51,421963,52,412019,53,412063,54,432118,
*55,382184,56,442215,57,432275,43,362341,45,362347,33,102351,
*61,362353,47,282357,37,282385,94,122425,95,342436,60,312480,
*62,312511,40,172542,41,172559,42,442576,63,352621,38,532664,
*36,402729,35,362781,93, 92833,44, 92842,46, 92851,59, 92858,
*58,92869,39, 92876,34,182885,91,312900,64,482938,32,503001/
C
C
C
C
C 1 - 186 : 186
DATA IA/638441,80745,638441,80745,637451,80742,635471,80740,632501
*,80740,626561,80740,621611,80743,674800,774802,873802,1072800,1170
*800,1368800,1665800,2359800,3054804,37200,41160,44130,46110,48090,
*50070,51060,52026331,52370,41626331,53410,31426331,54430,21226331,
*55450,11026331,56470,10926331,56480,10826331,56490,726331,57502,62
*6331,57512,626331,57502,10726331,56490,10726331,56480,10826331,564
*70,20926331,55450,31026331,54430,41126331,53410,51226331,52370,614
*26510,71526500,91826480,111826460,131826440,41260,37260,80533,8061
*0,80660,80680,80700,80710,80720,80732,673800,674802,774803,874802,
*974800,1074800,1374800,80007,1374800,1074800,974800,874802,774803,
*674802,673800,80732,80720,80710,80700,80680,80660,80610,80533,5349
*0,54490,55490,56490,57490,59490,62080,67050,73030,73012,73000,1149
*550,949550,849552,10949550,11049550,21449550,42249550,72249550,122
*249550,6003,7002,8000,9000,11000,13000,15000,17000,20000,23000,260
*00,29000,1017320,821350,725390,727420,628450,628480,628341,51360,6
*28341,54400,283443570,283446600,283449630,283452660,283455690,2834
*58720,283461750,283463780,283462800,283459800,283456800,283453780,
*283449740,283446710,283443680,628341,65401,628341,62360,628590,628
*550,727520,724490,820460,1016420,39000,36000,33000,30000,26000,230
*00,20000,17000,15000,12000,10000,9000,8000,7003,6003,20080,23050/
C 187 - 366 : 180
DATA IB/42541460,32638500,22737510,12836530,12936540,1219301,55360
*,1021311,56370,922311,56380,823321,404449570,824331,57500,825331,5
*7510,10825341,57510,10926341,57520,20927341,57520,31027351,57520,4
*1128351,57520,51228351,57520,61329361,56510,71429361,56500,8163037
*1,56490,91931381,55470,82331401,55440,54060,53040,52030,50020,4801
*0,44000,9000,8002,9010,11020,23030,23050,23070,21169780,21070780,2
*0971780,10872792,10773790,773800,1367800,1070800,971800,872800,773
*803,674803,649552,748550,847550,946551,70640,1243551,72620,5561730
*,5560742,5561730,5562720,5564700,12000,9000,8000,7000,6002,2156882
*0,21267820,21165820,21064810,20962790,20960780,20958760,20857740,2
*0855730,20853710,69520,67500,66480,64460,62450,60430,59410,57400,5
*5380,54360,52340,50330,48310,47290,45270,43260,42240,40220,38210,1
*93676820,173576820,153376820,143175820,123075820,102875820,9267482
*0,72473820,52372820,32269820,82020,82003,82690,82720,82730,82740,8
*2753,82763,22950640,13047680,22945700,52643720,62342730,72041750,7
*1840561,76630,71639531,77660,71539521,78680,61438511,78690,5133850
*1,79700,41238501,79710,41137501,79720,31037491,80730,30937491,8073
*0,20937491,80740,20836491,80740,10836491,80740,10736491,80742,7364
*91,80740,736481,80740,636481,80742,636481,80730,736481,79730,73648
*1,79720,735471,79720,835471,78710,10835471,78710,10835471,77700/
C 367 - 547 : 181
DATA IC/10934461,76690,21034461,75680,21133451,75670,31231451,7566
*0,31429441,75630,41626441,76610,54357770,64255790,84155790,9395578
*0,37110,35140,31170,45370,22233480,22231500,22229520,42028530,5162
*7540,51426411,55450,41226391,56480,41125381,56490,31025371,57500,2
*0924361,57510,10824361,57510,10824361,57520,724361,57520,724351,57
*520,723351,57522,723351,56510,723351,56500,822341,55490,922341,554
*80,11021331,54470,11220331,54450,23243540,33139550,53038550,629385
*50,82738550,24110,1338441,80670,1038441,80700,938441,80710,838441,
*80720,738441,80733,638441,80743,44385,44386,638441,80743,738441,80
*733,838441,80720,938441,80710,1038441,80700,1338441,80670,80007,13
*67800,1070800,971800,872800,773803,674803,1339451,80740,1039451,80
*740,939451,80740,839451,80740,739451,80743,639451,80743,394574803,
*384574800,374574800,364574800,354673800,334673800,294772800,154871
*800,85069800,45267790,33940551,79640,23840790,13641780,3342770,264
*4750,1145740,947720,850690,854650,9000,10010,12020,21030,24040,240
*70,24100,1227460,935460,839490,743510,645520,647540,55480,56502,41
*4550570,394850570,57380,57372,56370,55380,53390,49410,674805,67480
*5,651570,750570,10750560,10849560,20948551,80740,21047551,80740,31
*245541,80730,41443531,80720,61641511,80710,72037501,80680,80006,12
*000,9000,8000,7000,6002,667800,670800,671800,672800,673803,674803/
C 548 - 726 : 179
DATA ID/6006,7002,8002,10000,11000,13000,16000,23000,30004,12000,9
*000,8000,7000,6002,80743,80733,80720,80710,80700,80670,80230,80180
*,80150,80130,80110,80090,80080,72467800,62070800,51771800,41572800
*,31373800,21273800,21173800,11074800,10974802,8003,7003,6007,7002,
*8010,10974800,20974800,21074800,31173800,31273800,41373800,5147280
*0,61671800,71970800,92367800,80110,80130,80160,80210,80670,80700,8
*0710,80720,80733,80743,57512,57500,57490,57480,57450,57130,57090,5
*7070,57050,57040,57020,17010,13010,11000,10000,9000,8000,7003,7012
*,8020,20951570,31051570,41150570,61349570,81648570,82045570,57026,
*14020,11020,10020,9020,8022,639451,80746,639451,80746,639451,80747
*,738461,80732,837471,80720,936481,80710,1035501,80690,11233521,796
*70,11431411,435564790,21827411,79440,24044780,33945770,53846750,63
*748740,73649720,93451690,123254650,29160,80742,80730,80720,80710,8
*0680,80003,80030,80060,80090,92037500,61641510,41443530,31245540,2
*1047550,20948550,10849560,10750560,750570,651570,21169780,21070780
*,20971780,10872792,10773790,674806,773800,10773790,10872790,108727
*80,20971780,21070770,31169770,41268760,51367750,61466740,71664740,
*91862740,102060750,112356760,132653780,162651790,192651790,2126517
*90,651572,650570,10750570,10749570,10839441,56470,20937560,3113655
*0,41335550,51535540,61635520,81736510,111737490,131639450,1338441/
C 727 - 900 : 174
DATA IE/80740,1038441,80740,938441,80740,838441,80740,738441,80743
*,638441,80743,374574802,354774800,325074800,265674800,216174803,80
*743,80732,80720,80700,80680,80650,80590,80544,649553,749552,849550
*,1249550,62000,69000,72000,75000,77000,78000,1249551,79680,949551,
*79710,849551,80730,749551,80740,749551,80750,649551,80762,649551,6
*77176800,647375800,79630,79620,78620,77630,75640,73650,71670,21169
*780,21070780,20971780,10872792,10773790,773800,674804,774800,10774
*800,10830361,80730,10830361,79730,20930361,79720,21030361,78720,31
*129361,78710,41229361,77700,51328361,76690,61527361,76680,71825361
*,75660,93664760,103662760,93658770,63653780,33651790,23651792,3625
*0,36260,36270,36280,36293,36303,17120,82031360,62226400,42325430,3
*4456660,31217451,70520,21019361,72390,20920331,74420,10821321,7642
*0,10821321,77430,10722321,435666780,722321,435270790,722321,425072
*800,623321,424874800,623311,414775810,623311,414676810,623311,4046
*76820,623311,404577825,623311,404676820,623311,414676810,623311,41
*4775810,722311,424874800,722311,425072800,10722311,435270790,10821
*311,445666780,10821311,77450,20920311,76460,21019311,75480,3121731
*1,75500,43052750,53056760,62969780,72872790,92773800,112564671,807
*30,142361701,80730,80600,79602,78600,76610,73620,69640,19120,22090
*,23070,24050,24040,24030,24020,10911230,10813220,715191,80740/
C 901 - 1084 : 184
DATA IF/674802,673800,773802,10872800,11071800,21270800,21567800,8
*0030,80040,80050,80070,80080,80110,80160,80670,80700,80710,80720,8
*0733,80743,13080,15050,16030,17020,17012,1674800,1574800,609121,80
*730,10772800,10871801,95890,21168801,97870,38086980,48085990,68085
*990,88086980,108087970,148089950,1330381,80670,1031391,80700,93340
*1,80710,834411,80720,735421,80730,736431,80730,737451,80730,638461
*,80740,640471,80740,641481,80740,49420,51420,52410,53390,54370,553
*50,56330,58310,294751590,274553601,80740,625431,546174800,623411,5
*56274800,621391,566374800,719371,576573800,717351,586673800,915331
*,606871800,3161800,2962800,2763800,2564800,2366800,2167800,1968800
*,1769800,1570800,1370800,1270800,1072800,973800,873800,774802,6748
*00,6002,1221290,923300,824320,726330,627350,627361,55490,273849550
*,263949550,254149550,224248550,619441,55470,617341,55360,614311,55
*380,712281,55400,2641550,2443550,2244550,2045550,1846550,1647550,1
*448550,1248550,1049550,949550,749552,649550,6000,1367800,1066800,9
*63800,859800,756800,753800,749770,646740,643710,639670,64360,61330
*,58290,54260,51230,48190,44160,41130,38100,34060,31030,28000,24000
*,21000,18000,17020,20050,24080,27120,31150,34190,38220,41260,45290
*,48330,636520,640550,643580,747620,750660,754690,857720,960760,106
*4790,1366800,80007,1367800,1070800,971800,872800,773803,674803/
C 1085 - 1264 : 180
DATA IG/1237490,941500,844520,746530,647540,648550,55490,56502,575
*00,649570,648570,747570,846570,944560,1240560,55000,53000,52000,50
*000,48000,47000,1237490,941500,844520,746530,647540,648550,55490,5
*6502,57500,649570,648570,747570,846570,944560,1240560,55000,53000,
*52000,50000,48000,44000,12000,9000,8000,7000,6002,1313451,80740,10
*39451,80740,939451,80740,839451,80740,739451,80743,639451,80743,39
*4574804,394673802,394772800,394871800,395069800,405267790,40556479
*0,79400,78410,77420,75440,74450,72470,69500,65540,1232451,75620,93
*1411,76660,829391,78680,728371,79700,627351,80720,627341,80730,263
*374810,263275810,253275820,253176820,142481900,142882900,143083900
*,133284910,132023331,91840,131926341,91850,121927341,92850,1218273
*51,92862,121826351,92860,121825341,92860,121823341,92860,121820331
*,92860,123285920,133185910,123084910,92884910,72683900,52482900,42
*381900,32480890,21516251,88790,11316261,88780,1117281,87760,918301
*,86740,819321,85720,720361,84680,721391,83650,823451,81590,1092480
*0,21126780,31628760,41730740,71832720,101835690,66380,60440,253176
*820,253275820,263275810,263374810,627341,80730,627351,80720,728371
*,79700,829391,78680,931411,76660,1232451,75620,80006,1268800,97180
*0,872800,773800,674802,80745,80732,80720,80710,80700,80680,80660,8
*0630,80600,80570,80540,80510,80480,80450,80420,396770800/
C 1265 - 1437 : 173
DATA IH/366272800,335973800,305673800,275374800,245074800,21477480
*0,184474800,154174800,123874800,35090,32060,29030,26000,23000,2000
*0,18000,17000,18040,21070,24100,28130,31160,34200,233774800,264074
*800,294374800,324674800,354974800,385273800,415673800,445972800,47
*6369800,80500,80530,80570,80600,80630,80660,80680,80700,80710,8072
*0,80732,80745,55493,55482,55460,55450,55420,55400,55370,55340,5531
*0,55270,55240,55210,184247550,153948550,123649550,93349550,6304955
*0,32749550,23000,20000,17000,14010,17040,19070,22100,122549550,152
*849550,183149550,213448550,243648550,273947550,294345550,55320,553
*50,55380,55410,55440,55460,55470,55480,55493,80744,80732,80720,807
*10,80700,80680,80670,80640,80600,80570,80530,80490,80450,80410,803
*70,336470800,306072800,265673800,225273800,184874800,144474800,104
*074800,73774800,33374800,2974800,25000,21000,20000,20020,24060,281
*00,32140,36180,40220,44260,48300,52340,56380,60420,64460,68500,725
*40,76580,80600,80570,80540,80500,76460,73420,69390,65350,61310,582
*80,54240,50200,47170,43130,39090,36050,32010,28000,24000,21000,
* 21030,24070,112874800,153274800,193674800,234074800,274474800,3
*14874800,355273800,385673800,426071800,466569800,80500,80540,80580
*,80620,80660,80680,80700,80720,80732,80745,55492,55482,55470/
C 1438 - 1616 : 179
DATA II/55460,55440,55410,55380,55350,55320,55280,55250,55220,1841
*45550,153847550,123548550,93249550,52849550,22549550,2249550,19000
*,16000,15000,19020,23060,27110,32150,36190,40240,44280,49320,53360
*,55350,55320,55290,51250,48220,45180,41150,37110,34080,30040,27000
*,23000,20000,15000,16020,19060,92349550,122649550,163048550,193348
*550,223647550,254045550,55290,55320,55360,55390,55410,55440,55460,
*55470,55482,55492,80740,674800,673800,773802,772800,872800,971800,
*1070800,1169800,1367800,1465800,1664800,1862800,1960800,2158800,23
*57800,1013251,80550,816261,80530,719281,80510,721301,506771800,722
*311,486573800,624331,466373800,626351,456174800,283743591,80740,29
*3941581,80740,56310,54330,53340,51340,50330,50310,51290,52270,5426
*0,624411,56470,622391,485774800,621381,505974800,619361,526173800,
*717341,546273800,815321,556472800,1012311,576870800,2959800,276080
*0,2562800,2464800,2266800,2067800,1968800,1769800,1570800,1471800,
*1272800,1172800,1073800,973800,873800,774802,6002,649552,648550,74
*7550,746550,845550,944550,1143550,1242550,1340550,1539550,1637550,
*1836550,1934550,911211,55330,714221,55310,615241,304348550,617251,
*284249550,618401,55490,203949550,37210,36230,34210,34200,618360,61
*7371,55490,715281,303949550,714271,324049550,812251,334348550,2435
*550,2236550,2138550,1939550,1841550,1642550,1543550,1345550/
C 1617 - 1803 : 187
DATA IJ/1246550,1147550,948550,848550,749550,649552,80743,80733,80
*720,80710,80700,80680,80660,80640,80620,659800,657800,655800,75380
*0,750800,748800,846661,80720,844631,80730,941611,80730,1039591,807
*40,1337571,80740,5474800,5274800,50000,48000,45000,43002,1335450,1
*037470,939490,842511,80740,844541,80740,746561,80740,748581,80740,
*751601,80730,653631,80720,655661,80690,657800,80590,80620,80640,80
*660,80670,80690,80700,80710,80720,80732,80744,80742,81673800,51872
*800,31971800,21969800,21966800,11963800,11860800,609161,80570,6548
*00,651800,748800,10844800,10941651,80700,31138601,80720,41435571,8
*0730,51732541,80740,72028511,80740,104874800,134574800,41160,38190
*,37220,38250,41280,44310,354774800,385074800,415474800,445773800,4
*76073800,506372800,536770800,80560,80590,80620,80650,80680,80710,8
*0720,80730,80743,8000,1054800,1154800,1354800,1559800,1765800,1968
*800,2170800,2372800,2573800,2773800,610281,80740,612301,80740,6143
*21,80740,616341,80740,618361,80740,620381,80740,622401,80740,62342
*1,80740,625441,80740,627461,80740,629471,80740,631491,80740,633511
*,80740,635531,80740,637551,80740,639571,80740,641591,80740,643611,
*80740,644631,80740,646651,80740,648661,80740,650681,80740,652701,8
*0740,754800,756800,858800,860800,1062800,1164800,1365800,1667800,2
*369800,2971800,2973800,2975800,733550,933550,1133550,1337550/
C 1804 - 1982 : 179
DATA IK/1544550,1746550,1947550,2148550,2349550,2549550,608271,554
*90,610291,55490,612311,55490,614331,55490,616351,55490,618371,5549
*0,620391,55490,622411,55490,624431,55490,626451,55490,628471,55490
*,630550,632550,734550,836550,938550,1140550,1842550,2244550,224655
*0,2248550,47330,53270,58220,61190,64160,66140,68120,70100,71090,83
*248720,72654730,62258740,52060750,41763760,31565770,21466780,21268
*780,11169790,11070790,971800,872802,773805,872802,971800,11070790,
*11169790,21268780,21466780,31565770,41763760,52060750,62258740,726
*54730,83248720,71090,70100,68120,66140,64160,61190,58220,53270,473
*30,71650,765710,764720,864722,964720,963730,1062730,1260740,74000,
*75000,76000,77000,80000,80003,12000,10000,9002,8002,7002,1052590,1
*449630,1747650,1946690,2145710,2244730,2444740,2544611,75630,12152
*61,446166760,1217271,456068770,1219281,465969780,1220291,475770790
*,1221301,505571790,1222301,80720,1223311,80720,1224321,80720,12243
*31,80720,1225341,80722,1226351,80720,1226361,80720,1227371,80710,1
*227381,80710,1228391,79700,1229401,79690,1229411,79680,1230431,786
*70,1231441,78650,1231471,78620,1332511,77570,1333760,1534750,18357
*40,2336730,2337720,2339700,2342680,64470,23140,26110,92758630,8275
*6670,62854700,52853720,42853730,32753740,31114261,75530,21015241,7
*6530,10955661,77690,10857651,78700,871780,872780,839451,79720/
C 1983 - 2162 : 180
DATA IL/739451,79720,639451,79730,639451,80735,739451,80730,738451
*,80730,838451,80720,938461,80720,11037461,80710,11136471,80700,112
*35481,80690,11334501,79680,21433511,79660,21730541,78640,32026780,
*34042770,43943760,53944750,63845740,73746730,83547710,103449700,12
*3252660,29150,32220,34220,35220,37220,38220,40220,42220,43220,2230
*33450,223035460,223036480,223038490,2230405 1,223041530,223043540,
*223044560,223046570,722301,59470,722301,60490, 822301,62500,8
*22301,64520,922301,65540,922301,67550,1022301,68570,1222301,70580,
*72000,73000,75000,76000,78000,80003,1222300,1022300,922302,822302,
*722302,25160,29130,30110,31090,83241800,73241800,53241800,43141800
*,41316311,80420,31218291,435268800,21120271,455368800,21046531,806
*80,10947541,80680,10948551,80680,10848551,80680,848551,80680,84956
*1,80684,949561,80682,1048561,80682,1147561,80680,11246561,80680,11
*345561,80680,21444551,80680,21542551,80680,31740541,80680,32037541
*,80680,42431531,80680,55268800,65168800,75068800,84968800,47090,45
*110,43130,41160,37220,49270,55220,58190,61160,64140,66120,68100,70
*090,71080,62630461,72540,52035471,74590,41738481,75620,31539491,76
*640,31341501,76660,21242511,77670,11143521,78680,11044521,78690,94
*5531,79700,946531,79710,846541,79720,846541,80720,846551,80720,747
*551,80733,846551,80730,946551,80720,945551,80720,11045551,80720/
C 2163 - 2338 : 176
DATA IM/11144541,80710,21343541,79700,21442531,616769790,31640531,
*79590,41938521,78570,52235511,78570,62730501,76570,74957750,948577
*40,104658720,124460690,42140,39160,34190,80585,80630,80670,80680,8
*0695,71769800,32369800,12869800,3169800,3569800,3869800,4169800,44
*69800,14769800,25069800,41823531,80690,335569800,385769800,4360698
*00,476369800,516569800,546769800,80570,80590,80620,80640,80660,806
*80,80700,80720,27170,31140,113353640,93549680,83647700,73746720,53
*845730,43944740,33943750,31728401,76420,21430541,77610,21331511,77
*650,11133491,78670,11034481,78680,10935471,79690,935461,79700,8364
*61,79710,836451,80710,837451,80720,737451,80726,837451,80720,83645
*1,80710,836461,79710,935461,79700,10935471,79690,11034481,78680,11
*133491,78670,21331511,77650,21430541,77610,31728401,76420,33943750
*,43944740,53845730,73746720,83647700,93549680,113353640,31140,2717
*0,61460,64410,66380,112036680,82234700,62332710,52331730,42330501,
*74530,32329451,75580,22328421,76610,12127401,77640,11113191,273866
*780,11026371,78670,926361,79690,825351,79700,825351,80710,825341,8
*0710,725341,80720,725331,80733,825341,80720,826341,80720,10826341,
*80720,10927341,80710,11027351,80710,21128361,79700,21228371,79690,
*31329381,78680,41430391,77670,41631411,77650,51832421,76630,621334
*51,75600,82634501,74540,72090,71100,70120,68140,66160,64190,61220/
C 2339 - 2509 : 171
DATA IN/58250,53310,48326,48327,70105,70105,48327,48326,48329,4832
*9,48329,48329,98005,98005,253545559,253545559,253545559,253545559,
*12000,15000,18000,21000,24000,27020,30050,33080,36110,39140,42170,
*45200,48230,51260,54290,57320,60350,63380,66410,69440,72470,75500,
*78530,80560,80590,80620,80650,80680,1266740,1563770,1862780,216168
*1,79720,2460661,80740,22760651,80750,53060651,80750,83360661,80740
*,113661681,79720,143962780,174263770,204566740,48230,51260,54290,5
*7320,61435600,31738630,21841660,10812191,69440,614201,72470,515201
*,75500,515201,78530,614201,80560,10812191,80590,21862800,31765800,
*61468800,74660,77630,78620,616872790,606674800,606575802,606674800
*,616872790,78620,77630,74660,182248510,182248520,182248540,1822275
*70,182225610,182224610,182224291,52480,182224281,52480,182224291,5
*2480,182226351,52480,182228351,52480,22182,182224271,64610,1822242
*81,64600,182224301,64580,182224643,182224301,49440,182224281,50460
*,182224271,51480,182248520,182249532,182224271,53480,182224281,534
*70,182224301,52450,182224510,182224500,182224470,182224300,1822242
*80,182224270,41390,42380,44360,45350,47330,48320,50300,51290,53270
*,54260,243941560,233842570,213644590,203545600,183347620,173248630
*,153050650,142951660,122753680,112654690,92456710,82357720,6215974
*0,52060750,31862770,21763780,1565800,1466800,1268800,1169800/
C 2510 - 2677 : 168
DATA IO/971800,971800,1169800,1268800,1466800,1565800,21763780,318
*62770,52060750,62159740,82357720,92456710,112654690,122753680,1429
*51660,153050650,173248630,183347620,203545600,213644590,233842570,
*243941560,54260,53270,51290,50300,48320,47330,45350,44360,42380,41
*390,49310,54260,58220,61190,64160,67130,69110,93248710,82456720,61
*961740,51664750,41367760,31070770,10773790,10476790,278800,179800,
*179800,278800,10476790,10773790,31070770,41367760,51664750,6196174
*0,82456720,93248710,69110,67130,64160,61190,58220,54260,49310,2129
*51590,183248620,173347630,163446640,153446650,153545650,153644652,
*163743640,173842630,183842620,203941600,213941590,57230,56240,5525
*0,61527531,74650,32128521,77590,78020,13842790,3644800,3545802,364
*4800,13842790,78020,32128521,77590,61527531,74650,55250,56240,5723
*0,213941590,203941600,183842620,173842630,163743640,153644650,1535
*45650,153446650,163446640,173347630,183248620,212951590,66560,6954
*0,72520,73510,75510,76510,77520,78520,546468780,576069790,79710,79
*720,80720,80730,41173800,21323291,80730,11421341,80730,1520381,807
*30,1521401,80730,1524421,80720,11429441,80720,21332451,80710,41134
*471,80700,354968800,365166800,375562790,79380,78400,77410,76420,75
*440,74450,72470,70490,67520,26180,30130,33110,35090,37070,39060,40
*050,41040,42030,21730430,21533450,11434461,68520,11336720/
C 2678 - 2840 : 163
DATA IP/11237740,1138760,1036770,1033581,78660,1031541,79690,92953
*1,79700,927541,80710,925551,80720,923441,465672800,10922421,475871
*800,11020401,486069790,11018381,496366790,21116351,78510,21215331,
*77520,33154750,32956730,42860700,26050,62439470,62239470,52339470,
*42538470,32738470,23037470,47020,11518470,11421470,1324470,1227470
*,1230470,1133470,1135470,1137470,1238470,11339470,21839470,3253947
*0,52539470,25080,25130,114057720,114053750,114051780,133650800,143
*149810,152948830,152747840,152546641,85730,142346621,85750,1422456
*01,86770,132145591,86780,132045591,87790,121944591,87790,111944591
*,87800,96004,91743581,88810,81643571,88810,81643571,88800,81643571
*,87800,96004,81741551,85760,91841551,84750,91940541,83740,10203954
*1,83720,112238531,83700,122436531,83680,132734521,84650,145161850,
*155061860,164861850,184761840,44200,42220,37260,326341,54460,82634
*1,54460,1326341,54460,1926341,54460,2426341,54460,3446540,33546540
*,84046540,54130,54190,56240,61260,67260,263440720,263445770,326341
*,80460,826341,465456800,1326341,465461800,1926341,465467800,242634
*1,465472800,3446541,80770,33546540,84046540,54130,54190,56240,6126
*0,67260,263440720,263445770,263446800,263446541,80560,263446541,80
*610,263446541,80670,263446541,80720,263446541,80770,41166760,21349
*780,11432790,1521800,1520800,1521800,11432790,21349780/
C 2841 - 3000 : 160
DATA IQ/41166760,21140,23120,411240,609250,25000,25010,24030,23040
*,21070,11040,13020,14010,15003,14010,13020,11040,142136430,1223344
*50,411241,46330,609251,47320,2532470,12532470,32433460,42334450,72
*136430,142136430,122334450,112433460,102532473,112433460,122334450
*,142136430,76670,78510,79420,80410,80400,80410,79420,78510,76670,7
*7680,79510,80410,80400,80410,79510,77680,4,77680,79510,80410,80400
*,80410,79510,77680,48310,52270,55240,57220,59200,61180,30717620,31
*216311,63480,32752640,32554650,72756660,123258670,123759670,121922
*421,67600,111827471,68610,111832521,68610,111737571,68620,11174268
*0,111747680,111752720,121857760,121860760,121950551,76580,13204867
*1,76720,142247660,152446660,162646650,172746630,192847620,22284860
*0,242750560,47330,53270,56240,60200,173149630,152654650,132357670,
*112036441,69600,101830501,70620,91626541,71640,71424561,73660,6132
*1331,475967740,51219291,516168750,41118271,536269760,31017251,5563
*70770,30916231,576471770,20815221,586572780,20814211,596672780,107
*14201,606673790,10713191,616773792,612181,626874806,10713191,61677
*3792,10714201,606673790,20814211,596672780,20815221,586572780,3091
*6231,576471770,31017661,77700,40915661,76690,50713661,75680,136567
*740,121966730,121864710,121962700,132060690,132357670,152654650,17
*3149630,60200,56240,53270,47330/
END